home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / piblist.arc / DISPLAYM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-03-28  |  3.5 KB  |  65 lines
  1. (*---------------------------------------------------------------------------*)
  2. (*              Display_Menu -- Display menu of PibList commands             *)
  3. (*---------------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Display_Menu;
  6.  
  7. (*---------------------------------------------------------------------------*)
  8. (*                                                                           *)
  9. (*     Routine:  Display_Menu                                                *)
  10. (*                                                                           *)
  11. (*     Purpose:  Display menu of PibList commands                            *)
  12. (*                                                                           *)
  13. (*     Calling Sequence:                                                     *)
  14. (*                                                                           *)
  15. (*        Display_Menu;                                                      *)
  16. (*                                                                           *)
  17. (*     Called By:   Prompt                                                   *)
  18. (*                                                                           *)
  19. (*     Calls:  Display_Screen                                                *)
  20. (*                                                                           *)
  21. (*---------------------------------------------------------------------------*)
  22.  
  23. VAR
  24.    C: CHAR;
  25.  
  26. BEGIN  (* Display_Menu *)
  27.  
  28.    Textcolor( Help_Text_Color );
  29.    Window( 1, 1, 80, 25 );
  30.    ClrScr;
  31.    Gotoxy( 1, 1 );
  32.  
  33.    WRITELN('             E: Exit.                       Home : Move to start of file.');
  34.    WRITELN('        Return: Display next screen.        End  : Move to end of file.');
  35.    WRITELN(' ');
  36.    WRITELN('                                              '^Z'  : Move window right 10 columns.');
  37.    WRITELN('S, +, +S, PgDn: Display next screen           '^['  : Move window left 10 columns.');
  38.    WRITELN('   -, -S, PgUp: Display previous screen.  C or +C: Move window right 1 column.');
  39.    WRITELN('n, +n, nS,                                     -C: Move window left 1 column.');
  40.    WRITELN('    or +nS    : Skip forwards n screens. C or +nC: Move window right n columns.');
  41.    WRITELN(' -n or -nS    : Skip backwards n screens.     -nC: Move window left n columns.');
  42.    WRITELN('        Sn    : Skip to absolute screen n.     Cn: Move window to column n.');
  43.    WRITELN(' ');
  44.    WRITELN('^PgDn, P or +P: Skip forwards one page.   W or +W: Increase width by 1 column.');
  45.    WRITELN('     ^PgUp, -P: Skip backwards one page.       -W: Decrease width by 1 column.');
  46.    WRITELN('     nP or +nP: Skip forwards n pages.  nW or +nW: Increase width by n columns.');
  47.    WRITELN('           -nP: Skip backwards n pages.       -nW: Decrease width by n columns.');
  48.    WRITELN('            Pn: Skip to absolute page n.       Wn: Set width to n columns.');
  49.    WRITELN(' ');
  50.    WRITELN('            '^Y' : Skip forwards one Line.');
  51.    WRITELN('            '^X' : Skip backwards one line.');
  52.    WRITELN('       L or +L: Skip forwards one Line.     ''text: Find string "text"' );
  53.    WRITELN('            -L: Skip backwards one Line.        '': Find text again.');
  54.    WRITELN('     nL or +nL: Skip forwards n Lines.');
  55.    WRITELN('           -nL: Skip backwards n Lines.');
  56.    WRITE  ('            Ln: Skip to absolute Line n.');
  57.  
  58.    Textcolor( ForeGround_Color );
  59.  
  60.    READ( Kbd , C );
  61.  
  62.    Display_Screen;
  63.  
  64. END   (* Display_Menu *);
  65.